home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / obero / Interfaces3_6.lha / Interfaces / BootBlock.mod < prev    next >
Encoding:
Text File  |  1994-03-06  |  748 b   |  37 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: BootBlock.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE BootBlock;   (* $Implementation- *)
  11.  
  12. IMPORT e   * := Exec,
  13.        sys * := SYSTEM;
  14.  
  15. TYPE
  16.  
  17.   BootBlockPtr * = UNTRACED POINTER TO BootBlock;
  18.   BootBlock * = STRUCT
  19.     id * : ARRAY 4 OF CHAR;          (* 4 character identifier *)
  20.     chkSum * : LONGINT;              (* boot block checksum (balance) *)
  21.     dosBlock * : LONGINT;            (* reserved for DOS patch *)
  22.   END;
  23.  
  24. CONST
  25.  
  26.   bootSects   * = 2;      (* 1K bootstrap *)
  27.  
  28.   idDos    * = 'DOS\o';
  29.   idKick   * = 'KICK';
  30.  
  31.   nameDos  * = sys.VAL(LONGINT,idDos);    (* 'DOS\0' *)
  32.   nameKick * = sys.VAL(LONGINT,idKick);   (* 'KICK' *)
  33.  
  34. END BootBlock.
  35.  
  36.  
  37.